home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim2.dem < prev    next >
Text File  |  1999-09-16  |  353b  |  16 lines
  1. kp=xget("pixmap");
  2. if kp=0, xset("pixmap",1);end;
  3. np=10;
  4. t=0:0.1:np*%pi;
  5. param3d((t/(np*%pi)*%pi).*sin(t),(t/(np*%pi)*%pi).*cos(t),...
  6.         t/(np*%pi),35,45,'X@Y@Z',[2,4]);
  7. for i=45:1:(135),xset("wwpc");
  8.     param3d((t/(np*%pi)*%pi).*sin(t),(t/(np*%pi)*%pi).*cos(t),...
  9.         t/(np*%pi),35,i,'X@Y@Z',[0,4]);
  10.      xset("wshow");
  11. end
  12. if kp=0, xset("pixmap",0);end;
  13.  
  14.  
  15.  
  16.